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ie as 

15 PRINTTAB<18); ">» 23 MATCHES <«" 

29 PRINTTAB<5)."BV JOHN MARI.ER SAN JOSE, Cfl" 

38 FORI=1TO1088 NEXT I CLS 

1906 PRINT"LETS PLflV 23 MATCHES" 

1010 PRINT'VOU MOVE FIRST-TAKE 1, 2, OR 3 MATCHES" 

1920 PRINT"THE TRS-80 HILL TAKE 1, 2, OR 3 MATCHES" 

1030 PR I NT "TAKE TURNS MOVING-THE ONE HHO MUST TAKE" 

1840 PRINT"THE LAST MATCH LOSES" : INPUT"PUSH ENTER HHEN READY"; A» 

1050 CLS : M=23 : F0RD-3T0113STEP5 : F0RE=2T014 : SET<D, E) : SET<D+i, E) : NEXTE : NEXTD 

1051 B*l 

1060 FORE=2T03 : F0RD=2T0112STEP5 : SET<D, E) : SETCD+3, E) : NEXTD : NEXTE : D=3 

1065 PRINTAT328, "MOVE", "MATCHES LEFT", "VOUR MOVE". "TRS-88 MOVE" 

1070 PRINTAT<B*64+320),B,M, : INPUTT 

1075 IFT>3276?GOTO1990 

1090 IF<T>M)+<TOINT(T))*(T<1)+<T>3)GOTO1900 

1180 M=M-T : G=T-1 : GOSUB1950 : IFM=0GOTO1300 

1110 IFM=1QOTO1400 

1120 R=M-4*INT(M/4) IFR=1C=RND<3) :GOT01135 

1138 C=(R+3)-4*INT((R+3V4) 

1135 PRINT0<B*64+320) • B, M+T, T, C : B=B+i 

1140 M=M-C:G=C-1:GOSUB1950:GOTO1070 

1308 PRINT-VOU LOSE'" DON'T FEEL TOO BAD - MOST DO LOSE " . GOTO2000 

1488 PRINT"VOU HON !(! - VOU'RE BETTER THAN THE AVERAGE PLAYER" GOTO2000 

1900 PR I NTAT(B*64+348). "INVALID MOVE" F0RI-1T01888 NEXTI GOTO1870 

1950 F0RD=DT0G*5+DSTEP5 F0RE=2T014 F0RZ=-1T02 : RESEKD+Z, E> NEXTZ 

I960 NEXTE NEXTD RETURN 

2088 INPUT"HNAT ANOTHER TRV <1=VES- 2=N0>"; X 

200J IFX=1THEN1850 

2802 CLS: PR I NT "THANKS - SEE 'YA AGAIN, SPORT '" 

2883 FOPI=1TO750 NEXT I CLS PR I NT "GOODBYE" 

2894 END 

2118 FORX=3T013STEP2:RFSFT(X.41) NEXTX:RESET(7,43) RESETS. 43) 

GORDON, 

HERE IS ft SHORT PROGRAM THAT MILL IDENTIFY THE ASCII 216 OS 

CHARACTER CODE • AND PRINT ft LINE OF THE CORRESPONDING 220 FOR 1=33 TO 191 

CHARACTERS. (FOR LEVEL II) 238 FOR B*l TO 588NEXT B 

248 PRINT "ASCII CODE •*; I 

COOES FORM 1 TO 31 ARE CONTROL CODES. 32 TO 128 ARE 258 FOR A=l TO 64 

CHARACTER CODES. 129 TO 191 ARE GRAPHIC CODES 192 TO 255 269 PRINT CHR$(I); 

ARE SPACE COMPRESSION CODES. 278 NEXT ft 

THE GRAPHIC CODES (129 TO 191) ARE VERY INTERESTING. 288 NEXT I 

USING THESE CODES SOME FANTASTIC GRAPHICS CAN BE HADE 298 END 

KEEP UP THE GOOD WORK WITH THE NEWSLETTER 
TERRY HAZELETL 2187 CAPITOL DR , PARKERSBURa HV 26181 

ASCII CODE # 42 

*********************************************************** ***** 

ASCII CODE # 43 
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 



3 J rants Lane 
Ossininr, N.Y. 10562 

August 6, 1976 



Dear Bob, 



Enclosed is a tape which contains two programs 
which some of your readers may find useful. They 
are for converting LEVEL- 1 data files to LEVEL-2. 
The program supplied ■• ith LE7LL-2 requires inter- 
changing tapes for each record. The enclosed programs 
will reduce the labor involved in converting large 
data files. 

Program L1L2A is designed for single cassette 
systems. It will read a selected number of (up 
to 99) of LEVEL-1 records and store them in a 
buffer. The tape is then replaced and the buffer 
is dumped in LEVEL- 2 format. 

Program L1L2B is designed for use with the expan- 
sion unit and two tape recorders. It will repetitivly 
read a level one record from one cassette and 
write to the other. The record count is displayed on 
the screen. If the checksum does not compare, an 
error message will follow the record number. 
Control returns to the begining of the program after 
99 records; at which point one can continue for another 
99 records or return to LEVEL-2 BASIC. 

The source and object files are both included and 
were generated with the R-S Editor-Assembler. The 
entr^ point for the assembled version is 5000 (20480 
decimal) and the buffer starts at 5302. The programs 
can be relocated by changing the origin and stack 
locations in the first two source lines and then 
reassembling. The source statements are commented 
so that they may be modified for individual preference. 

Sincerely, 





88188 




ORG 


DWjUH 


5388 


88118 


STRCK 


FQI.I 


5388H 


682B 


88128 


KB 


EQU 


862BH 


6833 


88138 


VO 


EQU 


8633H 


91F3 


88149 


STOP 


EQU 


81F8H 


8212 


88158 


DEFC 


EQU 


8212H 


821E 


88166 


OUT 


EQU 


821EH 


8264 


88178 


WRT 


EQU 


8264H 


8287 


88188 


SVNC 


EQU 


8287H 


1R19 


88199 


RETB 


EQU 


1A19H 


5888 318853 


88289 




LD 


SP, STACK 


5883 3E8E 


88218 




LD 


A,6EH 


5885 CD8251 


88228 




CALL 


VIDEO 


5888 CDEC58 


88236 


BEG 


CALL 


CLEAR 


588B 217F5i 


88248 




LD 


HL.M1 


588E 8678 


88256 




LD 


B,76H 


5818 CDE458 


86268 




CflLL 


PRINT 


5813 CD5251 


86278 




CALL 


COUNT 


5816 C03451 


88288 




CflLL 


PNUM 


5819 21EF51 


88298 




LD 


HL, M2 


581C 662A 


66386 




LD 


B,2AH 


581E CDE458 


66318 




CflLL 


PRINT 



Tom foichel 



; KEYBOARD SCAN 
. DISPLAY <A> 
iSTOP CASSETTE DRIVE 
l DEFINE CASSETTE DRIVE 
i OUTPUT (A) TO CAS. POF 
-WRITE (A) ON TAPE 
I WRITE SVNC BYTE A5 
I RETURN TO BASIC 

-, TURN ON CURSOR 



PRINT MESSAGE 1 
SET RECORD COUNTER 
PRINT VALUE OF COUNTER 



PRINT MESSAGE 2 



582-1 211952 


08228 


LD 


HL-M2 




5024 6649 


08228 


LD 


B, 49H 




5026 CDE450 


88240 


CALL 


PRINT 


; PRINT MESSAGE 3 


5029 CDF750 


08258 Jl 


CALL 


KEV 




502C 28FB 


00260 


JR 


2, Jl 




502E FE52 


00270 


CP 


52H 




5620 28D6 


80288 


JR 


2, BEG 




5032 FE42 


00290 


CP 


42H 




5024 CR191A 


08488 


JP 


Z,RETB 




593? 218252 


00418 


LD 


HL STACK+2 


-BUFFER 0RIGIN=STACK+2 


582A 1601 


88428 


LD 


D, 81H 


> INITIALIZE COUNTER 


502C 1881 


80422 


JR 


LOOP+1 




502E 14 


80424 LOOP 


INC 


D 




582F flF 


88428 


XOR 


Fl 


;READ LOOP 


5048 7R 


00440 


LD 


A,D 




5041 2? 


80458 


DAR 






5842 5? 


00460 


LD 


D,A 




5842 CD2451 


00470 


CALL 


PNUM 


;DISPLRV RECORD COUNT 


5046 AF 


00488 


XOR 


A 




5847 CD1202 


88498 


CALL 


DEFC 


; SET CAS LATCH FOR #1 


584A RF 


00580 


XOR 


fl 




504B CD0C51 


08510 J2 


CALL 


CAS 


; START CAS AND READ IN 


504E FER5 


00528 


CP 


0A5H 


; BITS UNTIL <A)=A5 WHICH 


5850 28F9 


00520 


JR 


H2, J2 


. IS THE SYNC BYTE 


5852 CD2C51 


80548 


CALL 


CHR 


iREAD THE 1ST 4 BYTES 


5855 CD2C51 


00550 


CALL 


CHR 


i AND DISREGARD 


5858 CD2C51 


80568 


CALL 


CHR 




505B CD2C51 


88570 


CALL 


CHR 




585E 8E88 


00588 


LD 


C,0 


; INITIALIZE CHECKSUM 


5868 C02C51 


80590 J2 


CALL 


CHR 


;GET BYTE 


5862 77 


80608 


LD 


(HL),fl 


; STORE IN BUFFER 


5864 23 


88610 


INC 


HL 


; INCREMENT POINTER 


5065 F5 


08628 


PUSH 


AF 




5866 81 


00620 


ADD 


A,C 


; COMPUTE CHECKSUM 


5067 4F 


00640 


LD 


C, fl 




5068 Fl 


00650 


POP 


flF 




5069 FE8D 


t^5o©0 


CP 


0OH 


;LOOK FOR END OF 


5868 20F2 


ukJOf v 


JR 


N2,J2 


. RECORD ■ 8D 


5860 CD2C51 


08688 


CALL 


CHR 


;LAST BYTE= NEG CHECKSUM 


5078 81 


00690 


ADD 


A,C 




5071 C2D950 


88700 


JP 


NZ,ERR 




5074 2R8152 


86720 J4 


LD 


fl, (STACK+i) 




507? BR 


80720 


CP 


D 




5078 28C4 


80740 


JR 


NZ.LOOP 




507R CDF801 


80760 


CALL 


STOP 




507D 216252 


08770 


LD 


HL,M4 




5080 8627 


88780 


LD 


B,27H 




5082 CDE458 


08798 


CALL 


PRINT 


l PRINT MESSAGE 4 


5085 211952 


00808 


LD 


HL,M2 




5883 8649 


80818 


LD 


B,49H 




508R CDE450 


80820 


CALL 


PRINT 


; PRINT MESSAGE 2 


508D CDF758 


00828 J6 


CALL 


KEV 




5098 28FB 


80840 


JR 


2, J6 




5092 FE52 


88850 


CP 


52H 




5094 CA8858 


80868 


JP 


2, BEG 




5897 FE42 


80878 


CP 


42H 




5899 CR191R 


80888 


JP 


Z,RETB 




589C 218252 


80898 


LD 


HL, STACK+2 


; BUFFER 0RIGIN=STACK+2 


589F 1601 


88908 


LD 


D, 81H 


; INITIALIZE COUNTER 


58fll 1881 


00985 


JR 


L00P2+1 




58R2 14 


00907 L00P2 


INC 


D 




•jum nr 


00910 


XOR 


fi 


• WRITE LOOP 


50R5 7fl 


00928 


LD 


fl,D 


^\ 


50R6 27 


80928 


DAR 







u 



50ft? 5? 


00940 




LD 


D. A 




58A8 CD2451 


00956 




CALL 


PNUM 


; PRINT COUNT 


50AB AF 


06960 




XOP 


A 




50RC CD1292 


60970 




CALL 


DEFC 


. SET CAS LATCH FOR #1 


P8RF CD8702 


«0980 




CALL 


SYNC 


-WRITE SVNC BVTE 


50B2 7E 


00990 


JS 


LD 


A, (HL) 


; WRITE THE CONTENTS OF 


5663 22 


01000 




INC 


HL 


i THE BUFFER NO 


5064 CD6402 


01010 




CALL 


WRT 


i CHECKSUM IS USED IN 


586? FE0D 


01020 




CP 


0DH 


■ LEVEL- 1 1 DATA 


5069 20F7 


01030 




JR 


NZi J5 




50BB CDF881 


01040 




CALL 


STOP 


■ STC D CASSETTE 


506E 2A0153 


01060 




LD 


A, (STACK+1) 




50C1 BA 


01070 




CP 


D 




56C2 29DF 


01080 




JR 


NZ, L00P2 




50C:4 213952 


01100 




LD 


HL, M5 




50C? 865B 


01110 




LD 


B, 58H 




58C9 CDE450 


01120 




CALL 


PRINT 


; PRINT MESAGE 5 


50CC CDF750 


01128 


J7 


CALL 


KEY 




50CF 28FB 


81140 




JR 


Z, J7 




50D1 FE42 


01150 




CP 


42H 




5003 CA191A 


01160 




JP 


Z,RETB 




50D6 C30856 


01170 




JP 


BEG 




50D9 21E452 


01188 


ERR 


LD 


HL,M6 


-ERR - DISPLAYS ON THE 


58DC 0600 


01190 




LD 


B,0OH 


- MONITOR THE MESSAGE 


580E COE450 


01200 




CALL 


PRINT 


i "INPUT ERROR" 


50E1 C37458 


01210 




JP 


J4 




50E4 7E 


01220 


PRINT 


LD 


A, (HL) 


-PRINT - DISPLAYS ON THE 


56E5 CD8251 


01230 




CALL 


VIDEO 


. THE MESSAGE POINTED TO 


58E8 23 


01240 




INC 


HL 


- BY (HL) THE MESSAGE 


58E9 10F9 


0125-0 




DJNZ 


PRINT 


; LENGTH MUST FIRST BE 


59EB C9 


01260 




RET 




i LOADED INTO THE B REG 


50EC 3E1C 


81270 


CLEAR 


LD 


A, 1CH 


■> POSITION CURSOR TO 


50EE CD8251 


01280 




CALL 


VIDEO 


-HOME (00) 


50F1 3E1F 


01290 




LD 


A, 1FH 


-CLEAR TO END OF FRAME 


50F3 CD0251 


01300 




CALL 


VIDEO 




50F6 C9 


01310 




RET 






50F7 D5 


01320 


KEY 


PUSH 


DE 


-KEY - SCANS KEYBOARD A 


56F8 FDE5 


81330 




PUSH 


IV 


■ RETURNS ASCII REPRESEN- 


50FR CD2B08 


81340 




CALL 


KB 


I AT I ON OF KEY RETURNED 


50FD B7 


01350 




OR 


A 


i TO A IF KEYBOARD IS 


58FE FDE1 


01260 




POP 


IV 


:■ CLEAR A=0 OR A IS USED 


5100 Dl 


01270 




POP 


DE 


- TO SET FLAGS 


5101 C9 


01280 




RET 






5102 D5 


01290 


VIDEO 


PUSH 


DE 


, VIDEO - DISPLAYS (A) 


5103 F0E5 


01480 




PUSH 


IV 


; ON MONITOR 


5105 CD3300 


01410 




CALL 


VD 




5108 FDE1 


01428 




POP 


IV 




510A Dl 


81420 




POP 


DE 




5106 C9 


01440 




RET 






510C D9 


81450 


CAS 


EXX 




-CAS - RETRIEVES ONE 


510D 08 


81460 




EX 


AF-AF' 


-BIT FROM THE CASSETTE 


519E DBFF 


01470 


JS 


IN 


A, (0FFH) 


• PORT - FF 


5118 17 


01488 




RLA 






5111 30FB 


01498 




JR 


NC, J8 




5113 867C 


01500 




LD 


B. 7CH 




5115 10FE 


01510 


}$ 


DJNZ 


J9 




5117 CD1E02 


01528 




CALL 


OUT 




511A 06F8 


01530 




LD 


8- 0F8H 




511C 10FE 


01540 


J10 


DJNZ 


J10 




511E DBFF 


01550 




IN 


A- (0FFH) 




5120 47 


01560 




LD 


B- A 




5121 03 


01570 




EX 


AF . AF • 




5122 CB19 


01580 




RL 


B 




5124 1? 


01598 




RLA 







512=. F5 
5126 CD1E02 
5129 Fl 
512R D? 
512B C9 
512C 0668 
512E CD0C51 
5121 10FB 

5133 C9 

5134 7A 

5135 0604 
5137 CB3F 
5139 10FC 
513B 4F 
513C 3E30 
513E 81 
513F CD8251 

5142 7fl 

5143 E68F 

5145 4F 

5146 3E30 

5148 81 

5149 CD0251 
514C 3E20 
514E CD8251 

5151 C9 

5152 0692 
5154 0E00 
5156 1600 
5158 CDF750 
5156 28FB 
515D 4F 
515E C6C6 
5160 38F6 

5162 79 

5163 D630 
5165 FA5851 

5168 4F 

5169 78 
516A FE81 
516C 2804 
516E 79 
516F 57 

5178 10E6 

5172 7fl 

5173 0604 
5175 CB2? 

5177 10FC 

5179 81 
517A 57 

5178 320153 
517E C9 



01600 
01610 

01620 
01630 
01640 
81650 CHP 
01668 111 
81670 
01680 
01690 PNUM 

01700 

91710 J13 

01728 

81730 

01748 

01750 

81760 

01770 

81780 

01790 

01800 

01818 

81828 

81830 

01840 

01858 

01868 COUNT 

01878 

01888 

81898 J12 

01900 
01910 

81928 
01938 
01948 
01950 
81960 
81970 
81980 
01990 

02000 

020ie 

02020 

02030 

82048 J15 

02058 

02060 

82070 

82080 

82118 

02128 

02130 

02140 Ml 

9215* 

02160 

02170 

82180 

82190 

06206 M2 

82210 

0222-0 

82230 M3 

82240 

82258 



PUSH 

CALL 

POP 

E '■::•: 

RET 

LD 

CALL 

DJNZ 

PET 

LD 

LD 

5PL 

DJNZ 

LD 

LD 

ADD 

CALL 

LD 

AND 

LD 

LD 

ADD 

CALL 

LD 

CALL 

PET 

LD 

LD 

LD 

CALL 

JR 

LD 

ADD 

JR 

LD 

SUB 

JP 

LD 

LD 

CP 

JR 

LD 

LD 

DJNZ 

LD 

LD 

SLA 

DJNZ 

ADD 

LD 

LD 

RET 

DEFM 
DEFW 
DEFM 
DEFB 
DEFM 
DEFW 
DEFW 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 



PNUM - PRINTS VALUE OF 

COUNTER (D REG) THE 

UPPER & LOWER NIBBLE 

REPRESENT A TWO DIGIT 

; DECIMAL # 



J15 


5172 


J12 


5158 


J13 


5137 


Jll 


512E 


J10 


511C 


J9 


5115 


J8 


518E 


M6 


52E4 


J7 


56CC 


M5 


5289 


J5 


58B2 



COUNT - GETS TWO DIGITS 
EACH 0-9. FIRST DIGIT 
IS SHIFTED INTO THE 
UPPER NIBBLE « RESULT 
IS STORED IN THE D REG 
* IN STACK+1 



AF 
OUT 

HF 



B 8H 

CAS 

Jll 

A.D 
B> 04H 
A 

J13 
C, A 
A, 30H 
A, C 
VIDEO 
A, D 
0FH 
C,A 

A, 30H 
A,C 
VIDEO 
A.28H 
VIDEO 

B, 02H 

C, 0H 
D,0H 
KEV 
2, J12 

C;fl 

A, 0C6H 

C. J12 

A.C 

30H 

M, J12 

C. A 

A, B 

01H 

Z, J15 

fl,C 

D,A 

J12 

A, D 

B,04H 

A 

J15+3 

A,C 

D,fl 

(STACK+1). A 



LEVEL-1 TO LEVEL-2 DATA CONVERSION' 
0D0DH 

"TYPE THE # OF RECORDS. 00-99, TO BE 
0DH 

CONVERTED VOU MUST TYPE TWO DIGITS' 
3F0DH 
0D0DH 

'LOAD THE LEVEL-1 TAPE. PUSH PLAV- & HIT 
0DH 

ENTER - TO CONTINUE 
0DH 
•R - TO RESTART CT 



— 

L00P2 


56A3 


COUNT 


5152 


J6 


588D 


PRINT 


58E4 


M4 


5262 


Ml 


517F 


J4 


5074 


CLEAR' 


50EC 


ERR 


58D9 


BEG 


5808 


JK 


5060 


VIDEO 


5102 


CHR 


512C 


RETB 


1A19 


CAS 


518C 


SVNC 


0287 


J2 


584B 


HRT 


0264 


LOOP 


583E 


OUT 


021E 


KEV 


50F7 


DEFC 


0212 


Jl 


5829 


STOP 


01F8 


IC 


5219 


VD 


8833 


M2 


51EF 


KB 


002B 


PNUM 


5134 


STACK 


5300 





82268 




DEFB 


0DH 






62278 




DEFM 


'B - TO 


RETURN TO BASIC 




82288 




DEFW 


0D6DH 






82298 


M4 


DEFB 


0DH 






82380 




DEFM 


'LOAD LEVEL-2 


TAPE, PLISH RECORD, & HIT' 




02-310 




DEFB 


0DH 






02326 


M5 


DEFB 


0DH 






62330 




DEFM 


CONVERSION COMPLETE' 




82346 




DEFW 


0D0DH 






62356 




DEFM 


'TYPE R TO CONVERT MORE RECORDS 




82366 




DEFB 


0DH 






02370 




DEFM 


OR B TO RETURN TO BASIC 




82380 




DEFW 


3F0DH 






62398 


M6 


DEFM 


' INPUT ERROR 


' 


JfOO 


68108 




ORG 


5000H 




5388 


08110 


STACK 


EQU 


5388H 




8826 


00120 


KB 


EQU 


862BH 


, KEYBOARD SCAN 


9833 


88138 


VO 


EQU 


8033H 


; DISPLAY (A) 


81F8 


88146 


STOP 


EQU 


81F8H 


;STOP CASSETTE DRIVE 


6212 


88158 


DEFC 


EQU 


8212H 


i DEFINE CASSETTE DRIVE 


621E 


88168 


OUT 


EQU 


021EH 


i OUTPUT (fl) TO CAS. PORT 


6264 


66176 


WRT 


EQU 


0264H 


i WRITE (fl) ON TAPE 


6287 


68188 


SYNC 


EQU 


8287H 


; WRITE SYNC BYTE A5 


1R19 


86198 


RETB 


EQU 


1R19H 


> RETURN TO BASIC 


5968 316853 


88286 




LD 


SP. STACK 




5883 3E8E 


00210 




LD 


A, 6EH 


, TURN ON CURSOR 


5885 CDB056 


00220 




CRLL 


VIDEO 




5668 CDR758 


88238 


BEG 


CRLL 


CLEAR 




586B 211651 


88248 




LD 


HL, Ml 




588E 869D 


68258 




LD 


B, 9DH 




5818 CD9F56 


68268 




CRLL 


PRINT 


i PRINT MESSAGE 1 


5813 CD8256 


68278 


Jl 


CALL 


KEY 




5816 28FB 


88288 




JR 


Z, Jl 




5818 FE42 


88298 




CP 


42H 


i IF KEYED INPUT IS B 


581A CA191A 


66368 




IP 


Z, RETB 


i RETURN TO BASIC 


581D 3E60 


08310 




LD 


A, 6DH 




581F CDBD56 


00320 




CRLL 


VIDEO 




5822 3E61 


00330 




LD 


ft, 01 




5824 326153 


00348 




LD 


<STACK+l),fi 


. INITIALIZE RECORD COUNT 


5827 216253 


00350 


LOOP 


LD 


HL, STACK+2 


, BUFFER 0RIGIN=STACK+2 


582ft CDEF58 


00360 




CRLL 


PNUM 


-DISPLAY RECORD COUNT 


582D 3EFF 


00370 




LD 


fl, 8FFH 




582F C01262 


00380 




CRLL 


DEFC 


, SET CAS LATCH FOR #2 


5832 RF 


00390 




XOP 


fl 




5833 CDC758 


66460 


J2 


CRLL 


CRS 


, START CAS AND READ IN 


5836 FEft5 


00410 




CP 


0R5H 


. BITS UNTIL (fl)=THE SYNC 


5838 26F9 


00420 




JR 


NZ, J2 


; BYTE - fl5. 


583R 3E2fl 


00430 




LD 


fl,2AH 


;2fl = ASCII * 


583C: 323E3C 


00440 




LD 


(3C3EH). fl 


•DISPLAY * 


583F 323F3C 


00450 




LD 


(3C3FH), R 




5642 CDE756 


00460 




CRLL 


CHR 


•READ THE 1ST 4 BYTES 


5845 CDE756 


00470 




CRLL 


CHR 


• AND DISREGARD 


5648 CDE7b6 


86480 




CALL 


CHR 




504B CDE756 


00490 




CRLL 


CHR 




504E 0E60 


00506 




LD 


C, 


■INITIALIZE CHECKSUM 


5856 CDE758 


00510 


J 3 


CRLL 


CHR 


GET BYTE 


5053 ?? 


00520 




LD 


<Ml>,fl 


, STORE IN BUFFER 


5654 23 


00530 




INC 


'HL 


i INCREMENT POINTER 


5055 F5 


00540 




PUSH 


RF 




5656 81 


00550 




RDD 


fl,C 


i COMPUTE CHECKSUM 


5857 4F 


00560 




LD 


C, ft 




r> 5858 Fl 


68570 




POP 


RF 




505.9 FE80 


00580 




CP 


0DH 


•LOOK FOR END OF 



5656 26F3 
5050 CDE758 

5060 81 

5061 C29458 

5064 CDF881 
506? 3E20 
5069 323F3C 
506C 218253 
506F RF 
5670 CD1202 
5073 CD8782 
5876 ?E 
567? 23 
5078 CO6402 
5076 FE8D 
507D 20F7 
587F CDF801 
5082 3A0153 

5885 3C 

5886 2? 
5087 320153 
588R FE99 
508C CR8858 
508F 1896 
5091 C3191A 
5094 21RD51 
509? 6600 
5099 CD9F50 
509C C 36450 
509F ?E 
5000 CDBD50 
58A3 23 
58A4 10F9 
50A6 C9 
58A7 3E1C 
50R9 CDBDSf 
58AC 3E1F 
50flE CDBD58 
50B1 C9 
58B2 05 
5003 FDE5 
59B5 CD2B88 
50B8 B? 
50B9 FDE1 
50BB Dl 
50BC C9 
58BD D5 
58BE FDE5 
58C8 CD3300 
50C3 FDE1 
50C5 Dl 
50C6 C9 
59C7 D9 
50C8 08 
50C9 DBFF 
50CB 1? 
50CC 30FB 
50CE 067C 
5OD0 18FE 
5002 C01E82 
5005 06F8 
5007 10FE 
500? OBFF 
50OB 47 
50OC 08 



B0590 

00600 
00610 

00620 
006.30 
00640 
80650 
00660 
00670 
00680 
80690 

00700 
00710 

00720 
00730 
00740 
00750 
00760 
m??f} 
00780 
00790 
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00810 

00820 
00830 
00840 ERR 
00850 
00860 
00870 

00880 PRINT 
00890 

00900 
00910 

00920 

00930 CLEAR 
00940 
00950 
00960 
00970 
00980 KEY 
00990 

01000 
01018 
01020 
01030 
01040 

01050 VIDEO 

01060 

01078 
01088 

01090 
01100 

01110 COS 

01120 

01138 J8 

01140 

01150 
01160 

01176 J? 

01180 

81198 

01200 
01210 

01220 
01230 



jie 



jp 

CRLL 
ADD 

JP 

CALL 

ID 

LD 

LD 

XOR 

CALL 

CRLL 

LD 

INC: 

CALL 

CP 

JR 

CALL 

LO 

INC 
DAA 
LD 

CP 

JP 

JR 

JP 

LD 

LD 

CALL 

JP 

LD 

CALL 

INC 

DJNZ 

RET 

LD 

CALL 

LD 

CALL 

RET 

PUSH 

PUSH 

CALL 

OR 

POP 

POP 

RET 

PUSH 

PUSH 

CALL 

POP 

POP 

RET 

EXX 

EX 

IN 

RLfi 

JR 

LD 

DJNZ 

CALL 

L.D 

DJNZ 

IN 

LO 

EX 



NZ. J 3 
CHP 
A. C 

NZ, ERF- 
STOP 
A.20H 
<3C3FH),A 
HL, STACK +2 
R 

OEFC 
SYNC: 
A, (HL) 
HL 
WRT 
0DH 
NZ, J5 
STOP 

A, (STACK+1) 
A 

(STACK+1),A 

99H 

Z, BEG 

LOOP 

RETB 

HL, M2 

B, 8DH 
PRINT 
J14 

R, <HL) 
VIDEO 
HL 
PRINT 

R, 1CH 
VIDEO 
R, 1FH 
VIDEO 

DE 

IV 

KB 

fl 

IV 

DE 

DF 
IV 
VO 

IV 
DE 



AF ■ RF 

A, < OFFH > 

NC • J8 

B. 7CH 
J 9 
Ot.IT 
B-0F8H 

J10 

R, <0FFH> 
B A 
AF.AF 



RECORD = 80 

LAST BYTE= NEG CHECI SUN 



■STOP CAS #2 

. TURN OFF * 

•BUFFER 0RIGIN=STACK+2 

SET CAS LATCH FOR #1 
WRITE SVNC BYTE 

■ WRITE THE CONTENTS 
OF THE BUFFER NO 
CHECKSUM IS USED IN 

, LEVEL- 1 1 DRTR 

■STOP CASSETTE #1 

• INCREMENT & DECIMAL 
i ADJUST « STORE THE 
; THE RECORD COUNTER 



ERR - DISPLAYS ON THE 
MONITOR THE MESSAGE 
i "INPUT ERROR" 

I PRINT - DISPLAYS 

i THE MESSAGE POINTED TO 

■ BY (HL) THE MESSAGE 
, LENGTH MUST FIRST BE 

, LOADED INTO THE B REG 
•POSITION CURSOR TO 
, HOME (80) 
•CLEAR TO END OF 
i FRAME 

;KEY - SCANS KEYBOARD « 
, RETURNS ASCII REPRESEN- 
; AT ION OF KEY RETURNED 
, TO A. IF KEYBOARD IS 
; CLEAR A=8 OR A IS USED 
, TO SET FLAGS 

•VIDEO - DISPLAYS (A) 

■ PRESERVES REGISTER 
i CONTENTS 



CAS - RETRIEVES ONE 
BIT FROM THE CASSETTE 
PORT - FF 
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56DD 


C618 


»31240 




RL 


B 






58DF 


17 


01258 




RLft 








50E0 


F5 


81260 




PUSH 


AF 






58E1 


CD1E82 


61270 




CALL 


OUT 






58E4 


Fl 


81288 




POP 


AF 






5CE5 


L>9 


01298 




EXX 








58E6 


C9 


81300 




RET 








50E7 


8608 


01310 


CHR 


LD 


B, 8H 






58E9 


CDC750 


01320 


Jll 


CALL 


CAS 






58EC 


18FB 


81338 




DJNZ 


Jll 






58EE 


C9 


01340 




RET 








58EF 


388153 


01350 


PNUM 


LD 


A, (STACK+i) 


;PNUr. - DISPLAY THE 


58F2 


57 


01360 




LD 


D, A 




, VALUE OF THE RECORD 


58F3 


0684 


81370 




LD 


B, 84H 




i COUNTER THAT IS 


58F5 


CB3F 


01380 


J13 


5RL 


A 




; STORED IN STACK+i 


58F7 


18FC 


01390 




DJNZ 


J13 






50F9 


4F 


01400 




LD 


C,A 






58FA 


3E38 


01418 




LD 


A, 30H 






58FC 


81 


01420 




add 


fl,C 






58FD 


CDB058 


81430 




CALL 


VIDEO 






5106 


7ft 


01440 




LD 


fl,D 






5181 


E68F 


01458 




AND 


0FH 






5183 


4F 


81468 




LD 


C,fl 






5164 


3E38 


81478 




LD 


A,30H 






5106 


81 


81488 




ADD 


A, C 






5187 


C0B058 


81498 




CALL 


VIDEO 






510A 


3E28 


81588 




LD 


A, 20H 






510C 


CDBD58 


81518 




CALL 


VIDEO 






518F 


C9 


81528 




RET 












81538 


m 


DEFM 


'LOAD 


LEVEL- 


I TAPE IN CAS #2' 






81548 




DEFB 


0DH 










91550 




DEFM 


'LOAD 


LEVEL- 


II TAPE IN CAS #1' 






81560 




DEFB 


0DH 










81578 




DEFM 


'SET CAS #1 1 


-OR RECORD * CAS #2 FOR PLAV 






81588 




DEFB 


0DH 










81598 




DEFM 


'PRESS 


J ENTER 


TO START COPYING OP 






81680 




DEFB 


0DH 










91610 




DEFM 


'B TO 


RETURN 


TO LEVEL-2 BASIC 






91628 


M2 


DEFM 


' INPUT ERROR ' 


J13 


58F5 


J14 


5064 


LOOP 


5827 


VIDEO 


50BD VD 8833 


Jll 


50E9 


ERR 


5094 


KEY 


50B2 


RETB 


1A19 KB 002B 


Jie 


58D7 


J3 


5050 


Jl 


5013 


SYNC 


0287 STACK 5388 


J9 


5000 


CHR 


50E7 


PRINT 


509F 


HRT 


0264 


J3 


58C9 


CflS 


50C7 


Ml 


5118 


OUT 


821E 


N2 


51AD 


J2 


5033 


CLEAR 


50A7 


DEFC 


0212 


J5 


5876 


PNUM 


50EF 


BEG 


5008 


STOP 


01F8 



FREE! A SHORT BASIC PROGRAM. (LEVEL ONE ONLY) INCLUDE A 
SELF -ADDRESSED, STAMPED ENVELOPE. G. FRANK HUMISTON 
946 S. ANZA #15, EL CAJON, CA 92#2# 
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"BUZZER" 

10 A=0 
20 P.# A; 
30 G.20 

You can exit this infinite loop via the "break" key. Could be used in 
ga.Ties to accompany "you're shot down!", "you're sunk!", etc. No real 
hair: is done to the reed relay with this routine. 

Gil Spencer - VK2JK, Box 300, Spit Junction NSW 2088, Australia 



Everett E. Ogden 

175 Adams Street 

FAST T-BUG RELOADER Delmar, N v 12054 

Those of you with Radio Shack's T-BUG program have 
probably been aggravated more than once by finding yourself 
unceremoniously dropped back into BASIC, or by getting locked 
up in a program and having to reset the machine. You then 
have to reload T-BUG, which takes about half a minute. The 
program is still there (well, most of it) but you can't get 
back to it without a cassette load. This change to T-BUG 
will allow you to do that, and repair the damage done by the 
BASIC monitor, by reloading Just two bytes. 

First it is necessary to understand how the computer 
knows it should run T-BUG after loading it, instead of re- 
turning to the BASIC monitor. There is nothing in the CLOAD 
routine to do this. It calls the subroutine CLOAD0 (which 
does the actual loading), performs a few other manipulations, 
and returns to the BASIC monitor. I had to cogitate on this 
a while (I'm new at this game) but I finally got it. I'll 
admit the people who designed this are pretty clever. When 
a subroutine is called, the return address is pushed onto 
the stack. Level I initializes its stack at 4200, and when 
CLOAD0 is called the return address is stored at 41FE and 
41FF. BASIC programs start at 4200, but T-BUG runs from 4091 
to 45B6 and overwrites the stack. It changes the return ad- 
dress to 40B1, which is the start of T-BUG. 

If you get into BASIC you could return to T-BUG with a 
CLOAD of" address 40B1 into the proper location. However, 
this leaves two problems. CLOAD0 loads a checksum after the 
last data byte (at 4200 in this case). Also, the BASIC moni- 
tor loads zeros from 409D to 40A6. These changes are re- 
paired by the program below. It occupies memory space not 
used by T-BUG. Level I uses the space to store AS and BS. 
Load T-BUG, then make the following changes: 

4070 ED 4B CB 45 ; Data (same as 409 D 

4074 C3 BC 40 ; to 40A6) 

4077 CD 51 42 

407A xx xx xx » x ■ Don't Care 

407D 01 0A 00 LD BC, 000A ; Repair 409D-40A6 

4080 21 70 40 LD HL, 4070 

4085 11 9D ^0 LD DE i W° 

4086 ED B0 LDIR 

4-088 21 00 42 LD HL, 4200 ; Repair 4200 
408B 36 32 LD M, 32 

408D C3 Bl 40 JP 40B1 

41FE 7D 40 

Now punch 41FE to 41FF, preferably at the head of a 
leaderless tape to make it easy to find. Finally, punch 4070 
to 43B6, which becomes your new T-BUG. If you find yourself 
in BASIC you need only rewind the cassette to the head and a 
CLOAD will put you back into T-BUG in seconds. 



CPA wishes to purchase programs suitable for accountants, 
ie- Forir. 1040 federal income tax and related schedules. 

NYState S NYCity tax programs. General Ledger etc. 
M.Mucciolo 635 Jericho Tpke. New Hyde Park, NY 11040 



Start of T-BUG 
New start address 



Tb peTbIH 



® 



REGULAR FEATURES INCLUDE 

* FORUM 

* WHAT'S NEW 

* ME & MY 80 

* VOCAB 

* SMALL BUSINESS ADVISOR 

* COMPTUTOR 

* HOME IMPROVEMENT . . . 

* TAPETEASERS™ 

* GAME ROOM 

WIN WIN WIN WIN WIN WIN WIN WIN WIN 

CONTEST - GAMES - PRIZES 
PRIZES - CONTEST - GAMES 



WIN WIN WIN 



fIN WIN WIN WIN WIN WIN 
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• Screen Printer 

* Level II (I 

* 16K (RAM) 
*** MORE 



CASSETTE MAGAZINE 
FOR THE 

TRS 80 



TapeTalk is a truly unique publication for the first 

generation of computor pioneers. 
TapeTalk is a bi-monthly 'magazine' exclusively for the 

TRS-80 System. 
TapeTalk is all on cassette— just load it in , 
A One Year Subscription is only $30.00 and it includes 

"An Introduction to TapeTalk" cassette. 
The "Introduction" or Single Issues may be purchased 

individually for $7.00 each. 

MAIL COUPON OR CALL TOLL FREE -- 1-800/835-2246 



PLEASE ENTER MY SUBSCRIPTION TO TapeTalk FOR: 

[ | 1 Year U.S. $30.00 \Z3 2 Ye * rs U.S. $54.00 

Make Check or Money Order payable to: 

TapeTalk, P. 0. Box 54014, San Jose CA 95154 

Put on my fj ^) VlSA/BankAmericarJ [ | Master Charge 

Card * Lxpiration Date 

Signature 



NAME (print) 

ADDRESS 

CITY 
NICKNAME 



STATE 



IIP 



| | 4 k f~~1 16 k [3] level 1 f J Level 11 



*A TRADEMARK OF RADIO SHACK 
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ANNOUNCEMENT! 

THE TRS-80" GETS ITS FIRST 
MAJOR INDEPENDENT PERIPHERAL 



The things we all knew would happen have started. Basic Education 
Computers, Inc., a world leader in the field of audio-visual educa- 
tion, has interfaced its AVS-10 Early Learning System with the 
TRS-80 Home Computer. 



THE AVS-10 EARLY LEARNING SYSTEM 

As a stand-alone, the AVS-10 can teach a 3-year-old child to read 
at the third grade level in just 15 weeks! The system employs a 
unique phono-film cartridge which contains the audio and full-color 
visual training presentation on a single disk. Your child responds 
manually via a simple key-response system. 



A MARRIAGE OF TECHNOLOGIES 

Now, with the AVS-10 online to your TRS-80, the power of both 
machines is applied to advance your child's education. While the 
child operates and learns from the AVS-10, you monitor at the 
TRS-80 screen. A program running in the TRS-80 analyzes and 
reports on his progress, making suggestions on how to proceed. 
Later, the child transfers naturally to the TRS-80. 



INEXPENSIVE RENTAL ARRANGEMENT 

You can rent the AVS-10 complete with TRS-80 interface. For 
more information, call or write: 

CONTRACT 
SERVICES ASSOCIATES 

1 846 W. Broadway Anaheim. CA 92804 
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• ffijuGn uTncrj m*L wi-FEAt^ Tit arte : -ii.'«c- - «.>:* ,v wrc . - «_«.<- 
Snif A PROGRAM PRINTING SERy.Cc, 0«c '.<, Tri HvAIu6lLI7Y IF ",x- .«..- 
StRtiOES i EXPECT TG t£ HBLE TC OFFER QNE-Oftf C . i nflftDS; JtR.X I 'Jt\ 
PROCESS l£VEL I 4 II TAPES, rtS HELL AS DISKS. 

IkSTRUCTlONS FOR THOSE INTERESTED: 
V INCLUDE LEGIBLE INSTRUCTIONS AS TC 
R) LEVEL OF BfiSIC ( I OR II) 

B) NUMBER OF PROGRAMS ON MEDIA (TAPE OS M5K) 

C) NIOTH OF PRINT-OUT (5" TO 9' 8 UP TO 132 COLUMNS) 

D) IF SAMPLE RUNS ARE DESIRED (NOTE: I AH NOT OFFERING TC 
DEBUG VOUR PROGRAMS:) 

2) PACK ADEQUATELY! ! ! VOUR TAPE OR DISK COULD BE RUINED SIMPly 

BV SPOF.IOUS MAGNET ISIt SUCH AS mOBBV MAGNETS !*<!CH ARE REGULARLY 
SENT THROUGH THE NAILS TRY PACKING TAPES AND ESPECIALLY DISKS 
IN A COOKIE TIN OR MINT TIN. 

3) CHARGES ARE AS FOLLOWS 

A) ONE CENT PER LINE OF PRINT-OUT 

B) $2. 58 MINIUM 

C) tt. 25 FOR UNITS PARCEL SERVICE RETURN OF VOUR HAllttL 

D) NO CHARGE FOR FIRST CLASS RETUBN, BUT SB* STRHPEBl SELF 
ADDRESSED ENVELOPE (LARGE MAWLLft) F* fcjW* 

A NOTE OF INTEREST TO LEVB. II DISK BBS VMS... YOU CAN «&V.<BUJ ttltFUMJO 
DOUBLE THE USABLE STDJKBE OF VOIR MSB! NBB.V CUT A NOTCH MH &BESKWX* 
TO THE EXISTING NOTCH IN THE EDGE OF Wfi DISKS EXACTLY OPPJHTE ftffXISTUS 
NOTCH, AND A PAIR OF HOLES OKLV QRH6ITE THE EXISTING HOLES J6T 0*511* 
THE CENTRAL DRIVE GRIPPER HOLE M OTHER NORDS MAS THE BTWrWLF • 
MIRROR IMAGE OF THE TOP, AND THEN BACKUP THE FRONT OF THE MS W THE BACK 
YOILA! DOUBLE CAPACITY! 

I ENCLOSE NV USTINB FOR A HOB PROCESSING SYSTEM WHICH IS QUITE HORKABLL 
ALLOWING HOST OF THE FEATURES OF THE Iff! SYS7HW2 USD PROCESSING SYSTEM 
TO BE EXECUTED! THE WRtMLES SEGMENTS ARE NO? INCLUDED DIE TO THE COMPLEXITY 
OF THE SEGMENT AND ft LITTLE GREED. THE PROGRAM IS ALREADY QUITE CAPABLE, AND 
THE VARIABLES SEGMENT ALLOC FOR TOTAL<!) flJTOHATMM OF LETTER WRITING. 
DIRECTIONS: FOLLOH THE PROMPTING OF THE PRQBMi WHICH » HLF-filUWRTCRY, 
EX6EPT AS LISTED HERE. FOR LETTERS YOU DBIRE TO FOBHHT THE WkftlWOS OF, 
USING THE LINE PRINTER - VOU MUST SPICE ONCE ON A LINE. OR THE PRINTER HILL 
NOT CARRIAGE RETURN TO PUT SPACES VERTICALLY BETWEEN LINES TO INSERT A 
PROGRAM PROMPT FOR INFORMATION DURING THE PRINT SEGMENT, TYPE A < tt > 
(DOUBLE AND SIGNS) FOLLONED DIRECTLY BV THE INFORMATION NEEDED 
- NITH NO SPACES - ( AS: VOUR BALANCE IS PAST DUE. SHOWING A BALANCE 
OF UORRENT-BALANCE UNPAID. ). THE PROGRAM HILL SENSE THE (. U >, PRINT 
'PLEASE ENTER THE 'OKB/MKlML" TO THE MONITOR SCREEN. HAIT FOR THE 
DATA ENTRY. AND THEN INSERT THE INFORMATION IN THE LINE, PROCEEDING TO THE 
END OF THE LETTER, OR THE NEXT < U > CODE. 

IT TAKES A LITTLE PLAYING ttlTH THE PROGRAM TO REALLY APPRECIATE IT. THE 
SYSTEM WORKS NITH TAPE OR DISK iTHE VARIABLES SEGMENT IS DISK-INTERACTIVE; 
BUT DOES REQUIRE A LEVEL II HPU. THE SYSTEM PRINTS ROUGH OR FINISHED 
WAFTS GR ALLOWS YOU TO SEE SEGMENTS OF THE LETTS Si THE MONITOR SCREEN 
IT AuOUS EASY ENTRY OF NEH COPY, LESS EASY EDITING (I'M NORKING ON THIS/, 
TRut EhSE Of STORAGE AND RETREIVAL OF DATA, AND NEARLY AUTOMATIC OPERATION. 
IT IS AVAILABLE ON DISK OR TAPE IN ii MORE mDvhNCEO VERSION. 



ENJOY! fl 



AJs't^ 



P. 5. TrtiS uE'TER AS PRODUCED oy -*0kDR:: 
P. P. 5. I CANNOT 8t RESFCnSIslI '■■'■■ ; »i-&'*-" 
TO uPS OF Tnt POST OFFICE AS I -._ ;*" at ■■■: 
ORiiM* k FI5HES: ittTERifiLS SENT TO it FOR tlSTlNG ON MY ■-'.■■*. 

BOa HIT P/P.r.S i'.l rrRmO I FAILED 70 MENTI-.'« ~tti 

CONCORD: vl 20oc3 hc1_ 'Kc.-rtUNG CONTRACTS xijrfc. iwnrTS FRE** 





C**r*w 


:; >T 


"Wl 


ii ii*-- 


j I 'fSl 


ii 


"'.nit •: 


»r octLtjj? 


CGrlES 


Of 


*S 


lN"Bt 












-•jORDP 1 


*AA^" (■OW-. 


i CAinWI iiS 


''':'. 


;n"ed t 


fJRflS 


UK 


Jub'l 
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12 FRINT" 


V 


14 PRINT" 


2~> 


16 PRINT" 


3) 


18 PRINT" 


4> 


20 F-RINT" 


5> 


26 PRINT" 


6) 


33 PRINT" 


7) 


35 PRINT" 


8) 


37 PRINT" 


9) 


55 PRINT" 


/) 
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1 CLS PR1NTTA6<20^ ;"*** WORDPRO!" ***" PRINT PRINT "A WORD-PROCESSING SYSTEM". 

2 PRINT" THE TF-S-80 MICROCOMPUTER SVSTEM" PRINT PRINTTAB<45>. "GRAHAM R FISHER" 

3 PRINTTAB<45>- "F«< 1127" FRINTTAB': 45 •■ "CONCORD. NC 28025" FOR 1=1 TO 2500 NEXT I 

4 CLEAR 12500 

5 DIM LTt(120) 

6 CIS 

10 CIS PRINT"ENTEP THE PROGRAM FUNCTION VOU WISH TO PERFORM" 
INPUT fl NEW LETTER" 

SAVE THE LETTER CURRENTLY IN MEMORY TO DISK" 
PRINT THE LETTER CURRENTLY IN MEMORY" 
4> EDIT THE LETTER CURRENTLY IN MEMORY" 
LORD H LETTER FROM DISK" 
PRINT ROUGH DRAFT" 

ENTER VARIABLE LIST 'TO MERGE W/LETTER^" 
SAVE LETTER CURRENTLY IN MEMORY TO TAPE DRIVE #1" 
LORD A LETTER FROM CASSETTE DRIVE tl " 
END THE PROGRAM" 

60 F$=INKEY$ IF F$=""THEN 60 ELSE IF F*=V" THEN iOOOO ELSE F=VAL'F*> 

78 ON F GOSUB 120, 506- 5000. 6000. 7000. 2000. 1000, 700, 7200. 30080 

80 GOTO 10 

120 aS LNE=0 PR I NT "PLEASE ENTER THE ROUGH COPY OF YOUR LETTER" 

130 PRINT"ENTER t$$ WHEN YOUR LETTER IS COMPLETE" 

150 LINE INPUT LT$(LNE) 

160 IF MID*<LT$(LNE),1,3> = "$$«" THEN RETURN 

178 LNE=LNE ♦ 1 

188 GOTO 150 

508 CLOSE 1 

505 INPUT "PLEASE ENTER YOUR LETTER NAME".NM* 

518 OPEN "0", 1, NN$ 

528 FOR I = TO LNE 

538 PRINTtl, LT$(I) 

548 NEXT I 

550 CLOSE 1 

568 RETURN 

708 REM THIS SUB SAVES LETTERS TO TAPE 

718 CLS PRINT PRINT. PRINT 

720 PRINT"ENTER THE NAME OF THE LETTER VOU WISH TO SAVE TO TAPE." 

738 PRINT-FOLLOWING THESE RULES 1) ONLY THE FIRST LETTER OF THE" 

746 PRINT'TETTER NAME IS USED BY THE COMPUTER 2) NO LETTER ON ONE" 

750 PRINT"TAPE MAY REPEAT THE FIRST LETTER OF THE NAME END THE NAME" 

760 PRINT" (NOT TO EXCEED 6 LETTERS) WITH A PERIOD NOW ENTER THE" 

778 PRINT-LETTER NAME:"; 

788 FOR 1=1 TO 6 

790 Mf<I>«lNK£V*:IF W*(I)=" " THEN 820 

880 IF W$(I>="" THEN 790 

818 NEXT I 

828 CMD-T" 

830 FOR I=0 TO LNE 

840 PRINT«-l.LT*(I)i ", ". 

858 NEXT I 

968 CMD-R" 

398 RETURN 

1080 CLS PPINT"PLEASE ENTER THE VARIABLE FUNCTION VOU WISH TO PERFORM" 
ENTER THE VARIABLES ONE LETTER AT A TIME- 
ENTER ALL VARIABLES AT ONCE" 
ENTER VARIABLES FROM DISK FILE EN MASSE" 
CALL THE VARIABLES FROM DISK AS NEEDED- 
PRINT LETTER IN MEMORY « MERGE W/VAPIABLES" 
ESCAPE VARIABLES SEGMENT" 

1955 F*=INKEY$ IF F$="" THEN 1055 ELSE F=VHL'Ff :■ IF F»9 THEN RETURN 

i860 ON F GOSUB 1100. 1200. 1300. 1400. 1500. 1000. 1800. 18&0 

1065 GOT 01 000 

1180 REM ENTER VAR 1 LETTER AT A TIME 

1280 REM ENTER ALL VAR AT ONCE 

1300 REM ENNTEP VARIABLES FROM DISK EN MASSF 



1805 PRINT" 


D 


1010 PRINT" 


C ' 


1815 PRINT" 


3> 


1820 PRINT" 


4) 


1045 PRINT" 


8> 


1850 PRINT" 


9) 



1406 REM CflLL VARIABLES FROM DISK AS NEEKD 

1808 REM PRINT THE LETTER IN MEMORY. MERGE VARIABLES 

1883 CIS FOR 1=0 TO LNE-1 

160? FOR" M TO LEN<LT*<I))-1 

1811 IF MD*(LT*<I).J,2>="M" THEN 1902 

1815 IF H1D*(LT*(I>,J,2>="**" THEN 

1903 FOR K=J+2 TO LEN(LT*(I)> 

1907 IF MID*<LT*n>.K, 1) = " " THEN 2000 

1911 NEXT K 

2000 LPRINT TAB (180), TIME* 

2010 LPRINT" " 

2020 FOR I=8T0 LNE-1 

2630 LPRINT I,TA8<5);LT*<I> 

2040 NEXT I 

2085 LPRINT" " 

2888 LPRINT TAB<188); TIME* 

2090 RETURN 

5000 CLS FOR I = 8 TO LNE-1 

5019 FOR J = 1 TO LEN(LT*(I>)-1 

5015 IFMID*(LT*(I>,J,2) = "**" THEN 5190 

5929 NEXT J 

5029 LPRINT LT*(I> 

5049 GOTO 5800 

5100 FOR K ■ J+2 TO LEN(LT*(I>) 

5118 IF MID*<LT*(I),K, 1) = " " THEN 5200 

5120 NEXT K 

5200 PRINT"PLEASE ENTER THE "; MID*(LT*(I). J+2, K-(J+2>) 

5205 LINE INPUT IN* 

5208 SL = LEN(LT*(D) 

5218 OT* =( LEFT*(LT*(I>,J-1> ♦ IN* t RIGHT*(LT*( I), SL-(K-l))) 

5388 LPRINT OT* 

5880 NEXT I 

5828 PR I NT "PRESS ANY KEV TO CONTINUE" 

5848 X*^INKEY* 

5842 IF X*="" THEN5848 

5846 RETURN 

5850 INPUT-HIT 'ENTER' TO CONTINUE"; R 

5998 RETURN 

6090 CLS 

6010 PRINT"PLERSE ENTER THE EDIT FUNCTION " 

LIST A SECTION OF THE LINES" 

REPLACE A LINE" 

DELETE A LINE" 

INSERT A LINE" 

END EDITING 

6180 F*=INKEY* IF F*=" B THEN 6188 ELSE F=VAL<F*> 
6185 IF F=9 THEN RETURN 

6119 ON F GOTO 6200,6300.6400,6500,6008,6000.6000.6800 
6115 GOTO 6808 

6200 PRINT" ENTER THE BEGINNING AND ENDING LINES" 
6205 PRINT" THE NUMBER OF LINES IN THE LETTER IS "; LNE-1 
6210 INPUT B. E 

6215 IF (B<8) ♦ <E<8> THEN PRINT'NO NEGATIVE NUMBERS PLEASE" GOTO 6209 
6228 IF CBXJC) + CEXNE) THEN PRINTLINE NUMBERS OUT OF RANGE" GOTO 6208 
6238 FOR I = B TO E 
6225 PRINT I,LT*CI> 
6248 NEXT I 

6242 FOR I = 1 TO 1980 'NEXT I 
6258 GOTO 6088 

6308 PR I NT "PLEASE ENTER THE LINE* TO REPLACE" 
6318 INPUT N 

6315 IF |'N<8> ♦ 'N'INE-I' PRINT" INVAI ID NUMBER" GOTO 6ZW 
6":28 CIS PRINT N.LTJ'N' 
6325 LINE INPUT LT*W 
6I30 GOTO 6080 



6029 PRINT" 


1) 


6030 PRINT" 


2) 


6048 PRINT" 


3> 


6850 PRINT" 


4) 


6090 PRINT" 


9) 



1E 



6400 PR I NT "PLEASE ENTER THE LINE YOU WISH TO DELETE" 
6410 INPUT L 

6429 IF (L<9) + (L>LNE*1> THEN PRINTINVflLID LINE#" GOTO 6400 

6421 PRINT L, LT*(L> 

6422 INPUT "ENTER YES TO VERIFY THAT THIS IS CORRECT", ft* 

6423 IF ft* <> "YES" THEN 6000 
6425 FOR I = L+l TO LNE 

6430 LT*(I-1)= LT*(I> 
6435 NEXT I 

6440 LNE = LNE -1 

6458 GOTO 6000 

6500 PR I NT "WHICH LINE WOULD YOU LIKE TO INSERT BEFORE" 

6505 INPUT I 

6510 IF <I<9> + (IXNE-1) PRINT'INVflLID LINE#":GOTO 6500 

6529 FOR N = I TO LNE 

6530 LT*(N+1> = LT*(N) 

6540 PRINT"ENTER THE NEW LINE" 

6545 LINE INPUT LT$<H) 

6547 LNE=LNE+1 

6556 GOTO 6000 

7900 CLOSE1 

7005 INPUT"PLEHSE ENTER THE LETTER NAME". Ft 

7018 OPEN "T.LF* 

7O20 LNE=0 

7030 LINE INPUT»1.LT*CLNE> 

7040 IF f1ID*(LT*aNE').1.3> = "***" THEN RETURN 

7059 LNE=LNE+1 

7060 GOTO 7030 

7200 REM THIS SUB LOADS LETTERS FROM TAPE INTO MEMORY ARRAY LT* 
7210 PRINT"ENTER LETTER NAME. FOLLOWED BY H PERIOD THE LFTTER NAME" 
7220 PR INT "SHOULD NOT EXCEED SIX LETTERS" 

7239 FOR 1=1 TO 6 

7240 W$<n = INKEY* 

7250 IF W*a) = " " THEN 7286 

7260 IF W*(I)="" THEN 7240 

7270 NEXT I 

7280 LNE=0 

7290 CMD"T" 

7300 INPUT#-1,LT*(LNE> 

7310 IF MID*<LT*(LNE>,i,3>="***" THEN 7340 

7329 LNE=LNE+1 

7330 GOTO 7300 
7370 CMD"R" 
7390 RETURN 

30000 CLS PRINT "SEE YOU LATER' IIMI " 
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TPS-00 OWNERS 
•♦•HORSE RRCE" HRNDT CAPPING PROGRAM* 
I FT VOUR COMPUTER MAKE ** FOR VOU 
USING THIS TRPF HND R DM 1 L V RRi 1 NO FuRM 

FRNTflSTIC RESULTS! ! 
CPICKD THE EXACT ORDER OF FINISH OF ALL 
HORSES IN THE BELMONT STAKES RACE • > 
WRITTEN F OR 4 1- - L E! V E L 1 
SEND *11 FOR CASSETTE AND COMPLETE INSTRUCTION* 
TO HUFFMAN 

P BOX 1566 
ASHLAND. KV 41101 




anD 



IDEA ASSEMBLERS P. 0. BOX 1498 Galesburg. Illinois 61401 

INTRODUCES THOUGHTWARE! 

Designed To Make The Operation Of Your Personal Computer Easier And More Fun 

ft THE TRS-80 POKE GRAPHICS WORKSHEET 

Supports quick, easy implementation of graphics :n machine/assembly language or in fullest 

utilization of Level II Basic. - 1 pad of 25 sheets $3.95 

- 4 pads of 25 sheets $6.95 

ft THE TRS-80 GRAPHICS WORKSHEET 

Those desiring to continue the implementation of the SET and RESET commands are urged 

to order. - 2 pads of 25 sheets $3.95 

- 4 pads of 25 sheets $6.95 

ft the line minder 

Tired of the ruler slipping off the Newsletter as you type in programs? 

Set of 1-1x9 & 1-1x6 for 98V 

ft OUR VARIABLE MINDER (It's The Handiest Darn Thing!) 

See at a glance the availability of all 962 variables in Level II ... and their type assign- 
ments. Allows full implementation of up to 3848 for long-penciled programmers. 

1 pad of 25 sheets $3.95 

2 pads of 25 sheets $6.95 

ft AND OUR SELECTION OF NOTE PADS 

Keep them handy to jot down those spur of the moment thoughts. Package of 6 pads 

(300 sheets, all same title) $3.95 

fj YOUR CHOICE OF TITLES BELOW, DON'T WRITE IT OFF - 

^"^ (1) Bubble Babble, (2) Bus Lines, (3) Dandy Notes, (4) TRS-80 Owners Don't Baudot 
^~*N To Anyone, (5) Floppy Copy, (61 Padded Bits, (7) Under Disk-ussion, (81 Tandy Say - 
* "Don't Make ASCII Of Self." 



sj 



iidents Add i% Sal 



JOHN PEVELLE S QUESTION AEflUT THE LINE PRIMER 
COMMANDS FOR' PAGE SIZE ARE EASILY ANSWERED THE 
P0KE16424, ti MUST BE FOLLOWED AT THE END OF THE 
PROGRAM WITH THE CHRf(i2> INSTRUCTION WHICH TELLS 
THE PRINTER TO GO TO THE TOP OF THE PAGE THIS HILL 
CAUSE THE PRINTER TO FEED UP THE TOTAL NUMBER OF 
LINES FROM THE TOP OF THE PAGE TO THE BOTTOM 
AS IT IS INSTRUCTED TO DO IN THE 'POKE COMMAND 

MY PROBLEM WITH THE PRINTER IS THIS TYPING ON THE 
SCREEN LPRINT' WILL NOT MAKE THE PRINTER PRIM 1 
IN ORDER FOR ME TO GET IT TO PRIM I MUST ENTER 

'LPRINT' FOR EACH LINE AND THEN GIVE A RUN 
COMMAND. IT WILL NOW PRIM BEAUTIFULLY. BUT THIS 
MEANS THAT WITHOUT THE PRINTER CONNECTED THE PRO- 
GRAM WON T RUN . IS THERE ANY ANSWER TO THIS OTHER 
THAN MAKING 2 TAPES' (ONE WITH AND ONE WITHOUT LPRINT 

YOU PEOPLE AT FAYETTEVILLE ARE DOING H GREAT JOB- 
ONE THAT RADIO SHACK OUGHT TO BE DOING AT LEAST 
SOME OF - TELLING US AE9JUT THE MISTAKES IN THEIR 
MANUALS - KEEP UP THE GOOD WORK AND KEEP THE 
PROGRAMS. IDEAS, EXPERIENCES AND FRUSTRATIONS 
COM! NO' 

REGARDS 

PHIL PEIL't 

HmijhDNOM RIH' 
WORCESTER. MA tfleW 
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DERR TRS-80 folks, 

IN RESPONSE TO MR. REVELL'S LETTER IN THE AUGUST ISSUE, IT IS 
TRUE THRT 'LPRINT BV ITSELF DOES NOTHING HOWEVER UPON CHLuING 
TRNDV CUSTOMER SERVICE, I FOUND THRT THE CORRECT STRTEMEN'i -L^: 
R LINE FEED IS LPFIN rCHR*', 138,' AND SUGGEST THR I THOSE WlTHH 
LINE PRINTERS USE THIS INSTEAD OF THE LPRINT " ", RS IT DOES 
NOT CRUSE MOVEMENT OF THE PRINTING HERD WHICH DOES CRUSE 
UNNECESSARY WEAR ON SAME. 

MR. REVELL, IF YOU P0KE16424, X WHERE 'X' IS ANY VALUE IT CHANGES 
THE NUBMER OF LINES PER PRGE RS IDENTIFIED BV THE LINE COUNTER 
RT RDDRESS 16425. THE IDER IS THRT FOR. INSTANCE, YOU WISH TO 
PRINT INFORMATION ON R LEGRL SIZED FORM (.14") AND THE PROPER 
STATEMENT WOULD BE ■ P0KE16424, 84' THEN RT THE END OF YOUR PROGRRM 
YOU WOULD INSERT THE COMMAND ' LPRINTCHP.t<12> ' WHICH WOULD CRUSE 
R LINE FEED UNTIL THE COUNTER RT 16425 WRS EQUAL TO 84, PLEASE 
NOTE THRT IF INFORMATION WAS LPRINTTED PAST THE 84TH LINE. THE 
LINE COUNTER WOULD AUTOMATICALLY RESET TO AND WOULD LINE FEED 
UNTIL IT AGAIN RERCHED 84 

AT FIRST, I FOUND IT DIFFICULT TO SET THE LINE LENGTH ON THE BACK 
OF THE LINE PRINTER WITH THE SMRLL CONTROL. SO I SPENT ABOUT R 
DRV RND CRLIBRRTED IT, MAKING A TEMPLATE, AND INSTALLED A POINTER 
ON THE CONTROL. IT IS MUCH EASIER MERELY TO DIAL THE CHARACTERS 
PER LINE NEEDED INSTEAD OF GUESSING. IF ANYONE WITH A LINE PRINTER 
WOULD LIKE A PHOTOCOPY OF MY TEMPLATE. JUST WRITE AND ENCLOSE $1 00 
AND I WILL SEND SAME BACK TO YOU. IT MERELY FITS OVER THE CONTROL 
KNOB AND YOU CAN BUY A POINTER RT ANY RADIO SHACK OR JUST FROM 

YOUR SALVAGE BOX. SET THE POINTER ON THE CORRECT GAUGE ONCE 
AND NEVER HAVE TO GUESS AGAIN 

ALSO NOTE THAT THE LINE PRINTER ACTS JUST LIKE THE VIDiEO SCREEN 
WHEN IT COMES TO THE 'TAB' STATEMENT. IN ORDER TO TAB PAST 62 

1 HAVE FOUND THE FOLLOWING USEFUL. 

2 L=L-60 : LPRINTTA6<.60>; STRING*<L," " >i : RETURN 
99 L=120 : G0SUB2 : LPRINT X, 

WHAT THE LINE PRINTER WILL NOW DO IS TO TAB OVER 60 SPACES, 
THEN PRINT R STRING OF BLANKS, THEN PRINT THE VALUE OF X RT 
THE 'L TRB' WHICH YOU SPECIFIED BUT NOTE THRT EACH TIME THIS 
IS EXECUTED IN THE PROGRAM IT WILL ADD TO THE LINE LENGTH OF 
THE LINE PRINTER, IE IF LINE 99 IS RUN AGAIN BEFORE A END OF 
LINE IS EXECUTED THE LINE PRINTER HOLDS TRB -'.60.:', 60 SPACES, THE 
VALUE OF X, THEN UPON THE NEXT EXECUTION IT WILL ADD 60 MURE 
SPACES AND THE NEXT VALUE OF "X WHICH WILL EXCEED THE MAXIMUM 
LINE LENGTH OF 132 CHARACTERS. THE LINE PRINTER WILL TAB 60 
SPACES. PRINT 60 BLANKS, PRINT THE VALUE OF X CSAY 10 >, AMD 
IGNORE THE NEXT TRB < 60.:-, USE THE FIRST y BLRNKS OF THE 'G0SU6 
CARRIAGE RETURN, PRINT 51 BLANKS, AND THEN THE SECOND VALUE OF X 

C. D ROBERTSON. 2800 FORT WORTH NAliONAL BANK BUILDING 
FORT WORTH, TEXRS , 7 6102 

* 16K RAM + 16K RAM * 16K RAM * 16K RAM + 16K RAM + 

UP-GRADE YOUR TRS-80 TO 16K MEMORY OR ADD RAM TO 
YOUR EXPANSION INTERFACE 16K RAM FOR ONLY £139. 93 
OR 32K FOR ONLY *255. OS + *2. OO SHIPPING/HANDLING. 
SEND TO : TRS-80 USERS GROUP, 7554 SOUTHGATE RD 
FAVETTEVILLE, NC 28384 <919> 867-5822 
MAKE CHECK PAYABLE TO THE : TRS-80 USERS GROUP 
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KENDALL'S TAU FOR R BY K ROWS AND COLUNS 

This is a nonparmnetric tsst of independence or correlation coefficient 
which is very useful. One problem with the explosion in computing power is 
that an awful lot of tests are being used on non-normal data as if it were 
normal. In most cases "tau" is more reliable, robust and useful. This 
program calculates an approximation of a "i" score so that p can be read 
from a normal curve table (ie, if z * 1.96 the two-tailed p is .05). 

I've used the Shell-Metzger sort to find the x column (its easier to 
write the program with this sort separately, and faster running time is 
enjoyed); but since I haven't had the time or wisdom to figure out how 
tau can be calculated I use the slightly slower merge sort described by 
Knight for sorting the y scores in each iteration. I didn't see the 
"butterfly "merge in the Jan-Peb CREATIVE COMPOTING in time to work it 
in; however, I also don't know how to calculate the statistic from the 
sort and its advantage over the Shell sort is not that significant for 
this program unless your N is enormous, in which case you probably don't 
want to use the TRS-80. 

The program accomodates, automatically, for variations in N from column 
to column. As written it is set up to write the outcome into diskette, 
however a cassette routine is simple, and most applications will probably 
want to read off the screen. The first sort of each x/y takes about 2 
minutes for N-100 and 1 minute for each subsequent y column. 

Since I get a lot of spikes from the power supply, and have yet to 
get more than a 4 hour run on any matrix I've set it up so that you can 
specify a run starting with any column after the first; however, enter 
k-1 (same thing for the matrix cell, MC-1) . You can terminate the run 
early by changing line 110 to IF KX* k (k being the last column you want 
to compare). DATA/READ STATEMENTS are somewhat cumbersome, but do save 
a lot of input time and storage space. I shoald also say that often 

I cannot eet through a 42 column run for one row, and the feature enabling 
a start in the middle of the matrix is indispensable. I find lots of 
parentheses thrown in instead of commas , nvmtber changes and other 
glorious garbage which, fortunately, gives a SYNTAX ERROR message instead 
of running on to give you lousy data. 

George von Hilsheimer, PhD 
124 N. Clara Ave 
DeLand, PL 32720 
904-734-7664 
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SEKX.NO 
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195 


X=X-1 


?8 FOP Z»l TO R 
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NEXT Z 


4© SET<X.Y> 










115 


0=P+2 


45 X*X4l 










120 


FOR 7= 1 TO 


■if. IF X-121 (WTO 170 










130 


SET-X.V) 


*>0 NEXT ?. 










140 


V=V-1 


68 FOR ?=l TO & 










15fl 


NEXT 2 


70 SET (X.V^ 










155 


\i-i'.*f. F=['+2 


79, V=V+1 










1*0 


GOTO 10 


5rt WFXT 2 










170 


iiiT; "i 170 


; -" ; C=A+6 










Ift0 


FNI ' 


'■"• For Z=l to C 
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SAMPLE OF THE DATA BASE PROGRAM 



388 PRINT-COMMflNO" 

319 X=18 

328 G0SUB2988 

338 T=2 

348 G0SUB2388 

358 RESTORE 

368 READ Z$, T 

IFZ*='WT«N388 

IFLEFTXZI, 2>OLEFTf <TS, 2>THEN368 
398 0NTGOSUB588, 788, 888, 858, 988, 1888, 4688, 5188, 5888, 5288, 6888, 4488, 8888, 5388 
395 0OTO418 
418 GOT0388 



378 
388 



8000 REM LABELS 

6910 PRINT"LINES PER LABEL "; 

8020 X=5 

8030 GOSUB1900 

8046 T=T-1 

8045 I1=T 

8050 IFT<0THEN8350 

8060 FORI=0TOT 

8070 PRINTX9*; " LINE "; 1+1 

8080 OOSUB2420 

8090 V<I>=*R 

8100 NEXTI 

8110 PRINT "POSIT I ON FORMS. " 

8120 PR I NT "ENTER 1 FOR ALIGNMENT, 

8130 X=2 

3140 GOSUB1900 

8150 IFT=2THEN8220 

8160 FORI=0TO5 

8170 LPRINT"< ALIGNMENT - 

8130 NEXTI 

8218 GOTO8130 

8220 FORI=0TON 

3230 GOSUB4100 

8240 IFRO0THEN8340 

8250 FORI2=0TOI1 

8260 IFVCI2>>M1THEN8290 

8270 LPRINTMID*<A*<V< I2>, I >, 1, 30 > 

8280 GOTO8300 

8290 LPRINTA<V< I2>-M1-1, I> 

8300 NEXT 1 2 

8305 IFI1>4THEN8340 

8310 FORI2=0TO4-I1 

8320 LPRINT CHR*C138> 

8330 NEXTI2 

8340 NEXTI 

8350 PRINT"* * END OF LISTING * * 

8360 RETURN 



2 TO BEGIN" 
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HARD COPV NOW ! ! ! 

TELETYPE 

THE USER'S GROUP IS EVALUATING TTEL-101 TO DRIVE A TELETVPE 
OIRECTLV FROM VOUR TRS-80 KEYBOARD NO INTERFACE REQUIRED. 
SIMPLE 3 WIRE HOOK-UP AND VOU GET HARD COPV. ADAPTABLE TO 
MOST TELETYPES 



INTERESTED? 
DROP A LINE TO BOB LLOVD, AT THE GROUP ADDRESS 



DRTR BRbE * DRTR BRSE * DRTR BRSE * DRTR BRSE + DRTR BRSE 



I HRVE R PROGRRM THRT I RM SURE YOU WILL LIKE. IT IS CRLLED 
DRTRBRSE I WILL SEND YOU THE PROGRRM ON TRPE OR DISK + R 120 
PRGE BOOK FULL OF INFO RBOUT THE DRTR BRSE SYSTEM 

THE COST FOR THE BOOK + TAPE OR DISK IS ONLY $19 95 
THE DRTR BRSE COMMANDS ARE LISTED BELOW 



RDD 


COVRRIRNCE 


NSORT 


RVERRGE 


DELETE 


RESTORE 


CLIST 


LRBELS 


SUM 


COMPRESS 


LIST 


VRRIRNCE 



YOU DO NOT NEED TO KNOW PROGRAMMING. 
IN RND 'RUN'. 



JUST LORD THE PROGRAM 



T R 



L E 



F 



CONTENTS 



SERIES INTRODUCTION VI 

ABOUT THIS VOLUME VII 

PERMANENT STORAGE OF DATA BRSE INFORMATION - - VIII 

THE DRTR BRSE CONCEPT ____ ± 

THE BRSIC STRTEMENTS USED RND THE SYNTRX OF 

THEIR USE 7 

OBJECTIVES OF THE PEOPLE'S DRTR BASE 13 

DRTR BRSE NUCLEUS - THE HERRT OF PDB 15 

INTERMEDIATE COMMRNDS 57 

HOW TO USE PDB 95 

RPPLICRTIONS 95 

R> BALANCING R CHECK BOOK 

B> ACCOUNTS SUMMARY 

C> INVENTORY 

D) GRADES 

E) PATIENT SCHEDULES 

F) JOB SCHEDULES 

G) PRIVATE LIBRARY 



READERS INFORMATION CARD 
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DATA BASE * DATA BASE * DATA BASE * DATA BASE * DATA BRSE 



TRS-88 USERS GROUP 
MY CHECK OR MONEY ORDER IS INCLUDED. PLEASE SEND ME R COPY OF PDB 
[ ] ONE COPY + TAPE OR DISK - $19 95 [ ] TAPE [ J DISK 
C 1 SHIPPING/HANDLING - $2 OO 



NAME COMPANY 

ADDRESS TITLE _. 

CITY STATE _. 



ZIP 



EQUIPMENT: LEVEL I: [ ] 4K [ ] 16K 
[ ] MINI DISK - NUMBER OF DRIVERS . 

TRS-80 USERS GROUP 

7554 SOUTHGATE RD 
FRYETTEVILLE, NC 28304 



LEVEL II: C D 4K C J 16k 
C ] PRINTER 
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